par(mar=c(4,3,2,1), mgp=c(2, .5, 0), mfrow=c(1,1), cex.lab=.8, cex.axis=.8)

plot(av.ACME.ms, 1,  axes=F,  ylab="", xlim=c(-3,3), ylim=c(.5, 3.5), main="", pch=17, xlab="ACME of Permitting a Demonstration on Feeling Thermometer Scores")
grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, col="grey")
axis(1, col="white")
axis(3, col="white")

points(av.ACME.ms, 1, pch=17, cex=1.5)
points(av.ACME.md, 2, pch=17, cex=1.5)
points(av.ACME.mr, 3, pch=17, cex=1.5)

segments(av.ACME.ms-1.96*av.ACME.se.ms, 1, av.ACME.ms+1.96*av.ACME.se.ms, 1)
segments(av.ACME.md-1.96*av.ACME.se.md, 2, av.ACME.md +1.96*av.ACME.se.md, 2)
segments(av.ACME.mr-1.96*av.ACME.se.mr, 3, av.ACME.mr+1.96*av.ACME.se.mr, 3)

text(-3, 1.2, "Secular Muslims", pos=4, cex=.8)
text(-3, 2.2, "Devout Muslims", pos=4, cex=.8)
text(-3, 3.2, "Radical Muslims", pos=4, cex=.8)
